 Rectangle ()  ( Graph)
 --------------------------------------
 ,      .

 :
 Procedure Rectangle(X1, Y1, X2, Y2 : Integer);

 :
Real, Protected

 :
   (X1, Y1) -  ,     (X2,
Y2) -    .

 0 <= X1 < X2 <= GetMaxX
 0 <= Y1 < Y2 <= GetMaxY

      ,   
SetLineStyle  SetColor.   SetWriteMode, 
,        
      (MOV  XOR).

 :
    .

  :
 Bar
 Bar3D
 GetViewSettings
 InitGraph
 SetColor
 SetLineStyle
 SetViewPort

 :
 Rectangl.PAS
